VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
VBA \| Abfrage auf Wiederholung in Tabelle und "exit sub".	29.09.2021 07:17:33	Devo50
VBA \| Abfrage auf Wiederholung in Tabelle und "exit sub".	29.09.2021 07:47:04	Mase
VBA \| Abfrage auf Wiederholung in Tabelle und "exit sub".	29.09.2021 07:53:24	Dev
VBA \| Abfrage auf Wiederholung in Tabelle und "exit sub".	29.09.2021 08:04:01	Mase
VBA \| Abfrage auf Wiederholung in Tabelle und "exit sub".	29.09.2021 10:38:53	Dev
VBA \| Abfrage auf Wiederholung in Tabelle und "exit sub".	29.09.2021 10:47:01	Mase
VBA \| Abfrage auf Wiederholung in Tabelle und "exit sub".	29.09.2021 10:48:04	Dev
VBA \| Abfrage auf Wiederholung in Tabelle und "exit sub".	29.09.2021 10:58:06	N
VBA \| Abfrage auf Wiederholung in Tabelle und "exit sub".	29.09.2021 11:05:52	Dev
VBA \| Abfrage auf Wiederholung in Tabelle und "exit sub".	29.09.2021 12:54:11	Gast93578

Ansicht des Beitrags:

Von:
Dev

Datum:
29.09.2021 10:38:53

Views:
435

Rating:

Antwort:

Thema:
VBA | Abfrage auf Wiederholung in Tabelle und "exit sub".

Hallo Mase.

geht das auch ohne Makro.

Nur VBA:

ich habe sowas gefunden:

Sub DoppelteEinträgeFinden()
z1 = [A1].CurrentRegion.Rows.Count
Range("A1:A" & z1 & "").AdvancedFilter Action:=xlFilterInPlace,
Unique:=True
z2 = ActiveSheet.[A1].CurrentRegion.SpecialCells(xlVisible).Count
If z2 < z1 Then
MsgBox "Doppelte Einträge"
ActiveSheet.ShowAllData

Else MsgBox "Keine doppelten Einträge"
End If
End Sub

Ihre Antwort

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema:		Name:		Email:

Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema	Datum	Von Nutzer	Rating	Antwort
VBA \| Abfrage auf Wiederholung in Tabelle und "exit sub".	29.09.2021 07:17:33	Devo50
VBA \| Abfrage auf Wiederholung in Tabelle und "exit sub".	29.09.2021 07:47:04	Mase
VBA \| Abfrage auf Wiederholung in Tabelle und "exit sub".	29.09.2021 07:53:24	Dev
VBA \| Abfrage auf Wiederholung in Tabelle und "exit sub".	29.09.2021 08:04:01	Mase
VBA \| Abfrage auf Wiederholung in Tabelle und "exit sub".	29.09.2021 10:38:53	Dev
VBA \| Abfrage auf Wiederholung in Tabelle und "exit sub".	29.09.2021 10:47:01	Mase
VBA \| Abfrage auf Wiederholung in Tabelle und "exit sub".	29.09.2021 10:48:04	Dev
VBA \| Abfrage auf Wiederholung in Tabelle und "exit sub".	29.09.2021 10:58:06	N
VBA \| Abfrage auf Wiederholung in Tabelle und "exit sub".	29.09.2021 11:05:52	Dev
VBA \| Abfrage auf Wiederholung in Tabelle und "exit sub".	29.09.2021 12:54:11	Gast93578